home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
lord2b6.zip
/
GSHOPS.REF
< prev
next >
Wrap
Text File
|
1997-05-16
|
6KB
|
302 lines
@#WHORE
;the whore house, aw yeah!
@offmap
@do moveback
@do `v01 is 1
@label whorestart
@show
`r0`c `r1 `%The Whore House `r0
`2 You run your hands together, it's time you finally had some fun. And
hey, while you're in Greentree, why not pay a visit to the infamous
Greentree brothel.
@do write
`\`x`x
@choice
Visit Kelley.
Leave
@if responce is 1 then do
@begin
@show
`\`\ `2You rub your hands together lewdly. `$"I want a little 'visit' with
Kelley if you know what I mean..." `2you drawl.
`0"Kelley is busy.. How about Mary?"
`2You decide to wait. (this area will be added to later..)
`\`k
@end
@drawmap
@update
@#SCRIBE
;a place where they can add to the daily happenings
@offmap
@do moveback
@do `v01 is 1
@label scribestart
@show
`r0`c `r1 `%The Scribe Hut `r0
`2 Wow! This is where the daily happenings are made! More than just a
paper, it brings the community together.
`2A little man with glasses is working.
@do write
`x`x
@choice
`%Place an ad for `$$10`%.
Leave
@
@if response is 1 then do
@begin
@if money < 10 then do
@begin
@show
`\`\ `2You are a little short. Bummer.`\`\`k
@do goto scribestart
@end
@do money - 10
@writefile lognow.txt
`2A special announcement from `0`n`2:`\`%
@show
`\`\ `0"Ok sir! Enter your message. A blank line will quit."
@label keepwriting
@do write
`\`x`x
@do readstring 75 NIL `s01
@do `p20 is length `s01
@if `p20 < 2 then do
@begin
@writefile lognow.txt
`2-`0=`2-`%=`2-`0=`2-
@show
`\ `0"Alright! We have added you to today's edition!"
`2 You trot out feeling important.
`\`k
@drawmap
@update
@closescript
@end
@do stripbad `s01
@writefile lognow.txt
`s01
@
@do goto keepwriting
@end
@drawmap
@update
@#raise
;can they raise their level?
@do `p20 is `p09
@do `p20 * 100
@do `p20 * `p09
@if `p20 > `p01 then do
@begin
@do `p21 is `p20
@do `p21 - `p01
@show
`2Next level raise at `%`p20`2.
`0"You need about `%`p21`0 more experience before your next level raise!"
`2Your face falls - what a bummer!
`k
@run barak
@closescript
@end
@if `t04 > 0 then do
@begin
@show
`0"You already failed once today, come back tomorrow, you loser!"
`2Your face falls - what a bummer!
`k
@run barak
@closescript
@end
@show
`0"You have been sitting at level `p09 long enough."
@if `p09 IS 1 then do
@begin
@show
`$"Cool! So where is the master I fight?" `2you beam with pride.
`k `0"Master? Haw! Now that *I* run this place we do it my way!" `2Barak
laughs as he crumbles a strange black root into a mortar...
`2You anxiously await your fate...
@end
@show
`k
`c `r1`4 DRINKING YOUR OWN INIQUITY `r0
`2 Barak hands you a cup and asks you to drink.
`2You nearly retch as you feel the vessel's oily contents slide down
your throat.
`k `2Barak leads you to a small room with a cot. `2"I'll be back in a few
hours, then we'll see if you're still this cocky!"
`2 You lay down and begin dreaming immediately.
`k
@run startfight in training.ref
@closescript
@#BARAK
@offmap
@do moveback
@do `v01 is 1
@label barstart
@show
`r0`c `%Barak's Training Center
`2 Hundreds of warriors are randomly jumping and shrieking in their
efforts to better themselves.
Although the building itself is old and scarred, the sign is new.
@do write
`x`x
@choice
Ask for a level raise.
Talk to Master Barak.
Leave
@if responce is 1 then do
@begin
@run raise
@do goto barstart
@end
@if responce is 2 then do
@begin
@if `t01 is 4 then do
@begin
@show
`r0`c `%Talking to Master Barak
`0"Make it fast kid, I'm busy!"
`$"Um, Barak? Where are the other trainers, as is the tradition?" `2you
innocently ask.
`k `0"Other trainers?! Now that *I'M* the new MASTER TRAINER, I fired the
rest! I am the master for EVERY LEVEL NOW!" `2Barak cackles evilly.
`$"Wow, nice. You must have worked long and hard to achieve this position,
Master Barak."
`k `0"Of course I did! That last Master, this geezer known as Turgon turned
out to be a thief - not fit to teach a whore how to diddle! Haw!" `2 Barak
laughs crudely.
`k
@do `t01 is 5
@do goto barstart
@end
@show
`r0`c `%Talking to Master Barak
`0"Sorry kid, I'm a little busy TEACHING, because after all, I am sort of
the MASTER of this whole place - you can grasp that concept, can't you?"
`2Wow, what an ass. Maybe he'll talk later.
`k
@do goto barstart
@end
@drawmap
@update
@#ABDUL
@offmap
@do moveback
@do `v01 is 1
@label abstart
@show
`r0`c `%Abdul's Armour
`2 You see chainmail, leather, studded vests and other crap everywhere.
@do write
`x`x
@choice
Examine her wares
Go outside.
@show
`\
@if responce is 1 then do begin
@begin
@buymanager
10
12
13
14
@end
@if responce not 2 then goto abstart
@drawmap
@update
@#ARTHUR
@offmap
@do moveback
@do `v01 is 1
@label arstart
@show
`r0`c `%King Arthur's Weapons
`2 Items of destruction are hung all around you - you feel like a kid in
a candy store.
@do write
`x`x
@choice
Examine his weaponry
Go outside.
@show
`\
@if responce is 1 then do begin
@begin
@buymanager
4
9
15
16
@end
@if responce not 2 then goto arstart
@drawmap
@update